home *** CD-ROM | disk | FTP | other *** search
- property spriteNum
-
- on beginSprite me
- repeat with b = spriteNum - 2 to spriteNum + 8
- sprite(b).visible = 0
- end repeat
- sprite(spriteNum - 2).blend = 40
- end
-
- on OpenUp me
- sendSprite(348, #SetText, EMPTY)
- repeat with b = spriteNum - 2 to spriteNum + 8
- sprite(b).visible = 1
- end repeat
- sprite(spriteNum - 2).blend = 40
- end
-
- on closeUp me
- repeat with b = spriteNum - 2 to spriteNum + 8
- sprite(b).visible = 0
- end repeat
- end
-